
Partial Class Dashboard
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If IsPostBack Then
            Dim sSID As String = Request.Form("SID")
            Dim sDID As String = Request.Form("DID")
            Dim sDMode As String = Request.Form("DMode")

            Dim oScan As New SQLAutoDocLib.ScanQueue_Factory

            If IsNumeric(sDID) Then
                oScan.QueueDatabaseForScan(sDID)
            Else
                oScan.QueueServerForScan(sSID)
            End If
        End If
    End Sub
End Class
